home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / mail / netmail_13.lha / NetMail / Drivers / CED.editor < prev    next >
Text File  |  1995-09-30  |  2KB  |  74 lines
  1. /*
  2. ** $VER: CED.editor 1.3 (30.9.95)
  3. ** Written by Rocco Coluccelli
  4. ** Modified by Riccardo Solmi
  5. **
  6. */
  7.  
  8. OPTIONS RESULTS
  9. OPTIONS FAILAT 21
  10.  
  11. cmd = 'CED'
  12. IF ~EXISTS(cmd) THEN DO
  13.    cmd = GetVar('NetMail/CEDCmd')
  14.    IF cmd = 0 | ~EXISTS(cmd) THEN DO
  15.       ADDRESS COMMAND 'SetEnv NetMail/CEDCmd `Which "CED"`'
  16.       cmd = GetVar('NetMail/CEDCmd')
  17.       IF cmd = 0 THEN DO
  18.          ADDRESS COMMAND 'SetEnv NetMail/CEDCmd `RequestFile Title "Select CED command" Noicons`'
  19.          cmd = GetVar('NetMail/CEDCmd')
  20.          IF cmd = 0 | ~EXISTS(cmd) THEN RETURN 2
  21.          ADDRESS COMMAND 'Copy QUIET ENV:NetMail/CEDCmd ENVARC:NetMail/CEDCmd'
  22.       END
  23.    END
  24. END
  25.  
  26. cedport = 'rexx_ced'
  27.  
  28. SELECT
  29.    WHEN UPPER(ARG(1)) = 'EDIT' THEN DO
  30.       PARSE ARG , file, port
  31.  
  32.       IF ~SHOW('P', port) | ~ABBREV(port, cedport) THEN DO
  33.          IF ~SHOW('P', cedport) THEN DO
  34.             ADDRESS COMMAND
  35.             '"'cmd'" >NIL:'
  36.             'WaitForPort' cedport
  37.             IF RC ~= 0 THEN RETURN 0
  38.          END
  39.          ELSE DO
  40.             ADDRESS VALUE cedport
  41.             'Clear'
  42.          END
  43.          port = cedport
  44.       END
  45.  
  46.       ADDRESS VALUE port
  47.       'OW' file
  48.       'Status editable'; IF ~result THEN 'Menu' 2 11
  49.    END
  50.  
  51.    WHEN UPPER(ARG(1)) = 'SAVE' THEN DO
  52.       PARSE ARG , file , port
  53.  
  54.       IF SHOW('P', port) & ABBREV(port, cedport) THEN DO
  55.          ADDRESS VALUE port
  56.          'Status safesaves'; IF result ~= 1 THEN 'Menu' 1 9 1
  57.          'Status iconcreation'; IF result THEN 'Menu' 1 10
  58.          'Save As' file
  59.             DeleteFile(file'.autos.info')
  60.       END
  61.    END
  62.  
  63.    WHEN UPPER(ARG(1)) = 'CLOSE' THEN DO
  64.       PARSE ARG , port
  65.  
  66.       IF SHOW('P', port) & ABBREV(port, cedport) THEN DO
  67.          ADDRESS VALUE port
  68.         'Quit'
  69.       END
  70.    END
  71.    OTHERWISE
  72. END
  73. RETURN port
  74.